/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Basic / BlitzPlay / BlitzPlay.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 00 3b 2a 00 3b | 2a 20 20 42 6c 69 74 7a |***.;*.;|*  Blitz|
|00000050| 50 6c 61 79 20 48 69 73 | 74 6f 72 79 00 3b 2a 00 |Play His|tory.;*.|
|00000060| 3b 2a 20 20 56 30 3a 20 | 20 20 49 6e 69 74 69 61 |;*  V0: |  Initia|
|00000070| 6c 20 72 65 6c 65 61 73 | 65 00 3b 2a 00 3b 2a 2a |l releas|e.;*.;**|
|00000080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 00 |********|*******.|
|000000c0| 00 80 cc 20 20 20 20 20 | 20 20 3b 46 69 72 73 74 |...     |  ;First|
|000000d0| 20 75 70 2c 20 67 65 74 | 20 72 69 64 20 6f 66 20 | up, get| rid of |
|000000e0| 74 68 61 74 20 64 61 6d | 6e 65 64 20 43 4c 49 00 |that dam|ned CLI.|
|000000f0| 80 c3 20 20 20 3b 4b 69 | 63 6b 73 74 61 72 74 20 |..   ;Ki|ckstart |
|00000100| 32 2b 20 4f 4e 4c 59 2c | 20 77 68 69 63 68 20 72 |2+ ONLY,| which r|
|00000110| 65 61 6c 6c 79 20 73 75 | 63 6b 73 2e 20 20 44 6f |eally su|cks.  Do|
|00000120| 65 73 20 61 6e 79 6f 6e | 65 20 68 61 76 65 20 61 |es anyon|e have a|
|00000130| 20 31 2e 33 20 57 42 53 | 74 61 72 74 55 70 20 63 | 1.3 WBS|tartUp c|
|00000140| 6f 6d 6d 61 6e 64 3f 00 | 80 05 20 62 65 67 69 6e |ommand?.|.. begin|
|00000150| 20 20 3b 57 65 20 64 6f | 6e 27 74 20 77 61 6e 74 |  ;We do|n't want|
|00000160| 20 74 6f 20 72 75 6e 20 | 74 68 72 6f 75 67 68 20 | to run |through |
|00000170| 74 68 65 20 76 65 72 73 | 69 6f 6e 20 69 6e 66 6f |the vers|ion info|
|00000180| 20 64 6f 20 77 65 20 3b | 29 00 80 25 2e 62 20 22 | do we ;|)..%.b "|
|00000190| 24 56 45 52 3a 20 42 6c | 69 74 7a 50 6c 61 79 20 |$VER: Bl|itzPlay |
|000001a0| 56 30 20 31 39 39 37 20 | 54 6f 62 79 20 5a 75 69 |V0 1997 |Toby Zui|
|000001b0| 6a 64 76 65 6c 64 22 00 | 80 27 20 20 20 20 20 20 |jdveld".|.'      |
|000001c0| 20 20 3b 57 65 20 64 6f | 6e 27 74 20 77 61 6e 74 |  ;We do|n't want|
|000001d0| 20 74 6f 20 61 63 63 69 | 64 65 6e 74 61 6c 6c 79 | to acci|dentally|
|000001e0| 20 73 65 74 20 74 68 65 | 20 63 6f 64 65 20 74 6f | set the| code to|
|000001f0| 20 30 32 30 20 6f 6e 6c | 79 20 6e 6f 77 20 64 6f | 020 onl|y now do|
|00000200| 20 77 65 20 3b 29 00 00 | 2e 62 65 67 69 6e 3a 00 | we ;)..|.begin:.|
|00000210| 20 20 80 13 20 22 54 48 | 58 2d 4f 66 66 73 65 74 |  .. "TH|X-Offset|
|00000220| 73 2e 62 62 22 00 20 20 | 80 13 20 22 42 6c 69 74 |s.bb".  |.. "Blit|
|00000230| 7a 50 6c 61 79 2e 62 62 | 22 20 20 3b 49 6e 20 77 |zPlay.bb|"  ;In w|
|00000240| 69 74 68 20 74 68 65 20 | 66 65 61 74 75 72 65 73 |ith the |features|
|00000250| 00 20 20 80 32 20 66 69 | 24 3d 36 34 20 20 20 20 |.  .2 fi|$=64    |
|00000260| 20 20 20 20 20 20 20 3b | 54 68 65 20 6d 61 78 69 |       ;|The maxi|
|00000270| 6d 75 6d 20 6c 65 6e 67 | 74 68 20 6f 66 20 74 68 |mum leng|th of th|
|00000280| 65 20 66 69 6c 65 6e 61 | 6d 65 24 20 2d 20 49 20 |e filena|me$ - I |
|00000290| 6b 6e 6f 77 20 74 68 65 | 79 27 72 65 20 74 6f 6f |know the|y're too|
|000002a0| 20 62 69 67 20 62 75 74 | 20 49 27 6d 20 74 6f 6f | big but| I'm too|
|000002b0| 20 6c 61 7a 79 00 20 20 | 80 32 20 70 61 24 3d 31 | lazy.  |.2 pa$=1|
|000002c0| 36 30 20 20 20 20 20 20 | 20 20 20 20 3b 54 68 65 |60      |    ;The|
|000002d0| 20 6d 61 78 69 6d 75 6d | 20 6c 65 6e 67 74 68 20 | maximum| length |
|000002e0| 6f 66 20 74 68 65 20 70 | 61 74 68 6e 61 6d 65 24 |of the p|athname$|
|000002f0| 20 2d 20 74 6f 20 67 65 | 74 20 74 68 65 6d 20 61 | - to ge|t them a|
|00000300| 73 20 73 6d 61 6c 6c 20 | 61 73 20 70 6f 73 73 69 |s small |as possi|
|00000310| 62 6c 65 20 3a 29 00 20 | 20 cf 04 20 30 20 20 20 |ble :). | .. 0   |
|00000320| 20 20 20 20 20 20 20 20 | 20 3b 57 65 20 68 61 76 |        | ;We hav|
|00000330| 65 20 74 6f 20 67 72 61 | 62 20 61 20 73 63 72 65 |e to gra|b a scre|
|00000340| 65 6e 20 66 72 6f 6d 20 | 73 6f 6d 65 77 68 65 72 |en from |somewher|
|00000350| 65 20 73 6f 20 77 65 20 | 63 61 6e 20 6f 70 65 6e |e so we |can open|
|00000360| 20 74 68 65 20 66 69 6c | 65 72 65 71 00 20 20 c5 | the fil|ereq.  .|
|00000370| 06 20 24 32 30 30 00 20 | 20 c5 01 20 30 2c 30 2c |. $200. | .. 0,0,|
|00000380| 31 36 2c b5 8f 2c b5 90 | 2d 31 36 2c 24 31 30 30 |16,..,..|-16,$100|
|00000390| 66 2c 22 22 2c 32 2c 31 | 00 20 20 c5 12 20 30 00 |f,"",2,1|.  .. 0.|
|000003a0| 00 2e 61 67 61 69 6e 3a | 00 20 20 74 69 74 6c 65 |..again:|.  title|
|000003b0| 24 3d 22 53 65 6c 65 63 | 74 20 61 20 6d 6f 64 75 |$="Selec|t a modu|
|000003c0| 6c 65 20 74 6f 20 70 6c | 61 79 22 20 20 3b 54 68 |le to pl|ay"  ;Th|
|000003d0| 65 20 6c 6f 6f 70 00 20 | 20 73 75 63 63 65 73 73 |e loop. | success|
|000003e0| 24 3d 42 65 67 69 6e 7b | cc 01 28 74 69 74 6c 65 |$=Begin{|..(title|
|000003f0| 24 2c 70 61 24 2c 66 69 | 24 29 7d 20 20 3b 4f 4b |$,pa$,fi|$)}  ;OK|
|00000400| 20 69 74 27 73 20 6e 6f | 74 20 61 20 76 65 72 79 | it's no|t a very|
|00000410| 20 70 72 65 74 74 79 20 | 66 69 6c 65 72 65 71 20 | pretty |filereq |
|00000420| 62 75 74 20 69 74 20 64 | 6f 65 73 20 74 68 65 20 |but it d|oes the |
|00000430| 6a 6f 62 20 61 6e 64 20 | 69 74 27 73 20 73 00 20 |job and |it's s. |
|00000440| 20 80 0b 20 73 75 63 63 | 65 73 73 24 3c 3e 22 22 | .. succ|ess$<>""|
|00000450| 00 20 20 20 20 62 6f 64 | 79 24 3d 73 75 63 63 65 |.    bod|y$=succe|
|00000460| 73 73 24 00 20 20 20 20 | 80 06 20 64 6f 65 72 72 |ss$.    |.. doerr|
|00000470| 6f 72 00 20 20 20 20 80 | 05 20 65 6e 64 65 00 20 |or.    .|. ende. |
|00000480| 20 80 c0 00 20 20 74 65 | 6d 70 6e 75 6d 62 65 72 | ...  te|mpnumber|
|00000490| 2e 62 3d 54 69 6d 65 72 | 4d 6f 64 65 73 7b 7d 00 |.b=Timer|Modes{}.|
|000004a0| 20 20 80 0b 20 74 65 6d | 70 6e 75 6d 62 65 72 3d |  .. tem|pnumber=|
|000004b0| 34 00 20 20 20 20 62 6f | 64 79 24 3d 22 54 69 6d |4.    bo|dy$="Tim|
|000004c0| 65 72 54 69 63 6b 20 73 | 70 65 65 64 73 20 6e 6f |erTick s|peeds no|
|000004d0| 74 20 73 75 70 70 6f 72 | 74 65 64 20 69 6e 20 74 |t suppor|ted in t|
|000004e0| 68 69 73 20 70 6c 61 79 | 65 72 21 22 20 20 3b 41 |his play|er!"  ;A|
|000004f0| 4e 44 20 54 69 6d 65 72 | 54 69 63 6b 20 69 73 6e |ND Timer|Tick isn|
|00000500| 27 74 20 73 75 70 70 6f | 72 74 65 64 20 62 79 20 |'t suppo|rted by |
|00000510| 74 68 69 73 20 70 6c 61 | 79 65 72 20 3b 29 00 20 |this pla|yer ;). |
|00000520| 20 20 20 80 06 20 64 6f | 65 72 72 6f 72 00 20 20 |   .. do|error.  |
|00000530| 20 20 80 05 20 65 6e 64 | 65 00 20 20 80 c0 00 20 |  .. end|e.  ... |
|00000540| 20 80 0b 20 74 65 6d 70 | 6e 75 6d 62 65 72 3e 33 | .. temp|number>3|
|00000550| 20 80 21 20 74 65 6d 70 | 6e 75 6d 62 65 72 2d 34 | .! temp|number-4|
|00000560| 00 20 20 80 0b 20 74 65 | 6d 70 6e 75 6d 62 65 72 |.  .. te|mpnumber|
|00000570| 3c 3e 33 20 20 3b 57 65 | 20 65 78 70 65 63 74 20 |<>3  ;We| expect |
|00000580| 74 68 65 72 65 27 73 20 | 61 74 20 6c 65 61 73 74 |there's |at least|
|00000590| 20 6f 6e 65 20 70 6c 61 | 79 65 72 20 72 6f 75 74 | one pla|yer rout|
|000005a0| 69 6e 65 2c 20 73 6f 20 | 77 65 20 77 6f 6e 27 74 |ine, so |we won't|
|000005b0| 20 62 6f 74 68 00 20 20 | 20 20 63 68 6f 69 63 65 | both.  |  choice|
|000005c0| 2e 62 3d 74 65 6d 70 6e | 75 6d 62 65 72 00 20 20 |.b=tempn|umber.  |
|000005d0| 80 22 00 20 20 20 20 80 | 0b 20 bc 0b 00 20 20 20 |.".    .|. ...   |
|000005e0| 20 20 20 63 68 6f 69 63 | 65 3d 32 00 20 20 20 20 |   choic|e=2.    |
|000005f0| 80 22 00 20 20 20 20 20 | 20 63 68 6f 69 63 65 3d |.".     | choice=|
|00000600| 31 00 20 20 20 20 80 c0 | 00 20 20 80 c0 00 20 20 |1.    ..|.  ...  |
|00000610| 73 75 63 63 65 73 73 24 | 3d 49 6e 69 74 4d 75 73 |success$|=InitMus|
|00000620| 69 63 7b 7d 20 20 3b 49 | 6e 69 74 69 61 6c 69 73 |ic{}  ;I|nitialis|
|00000630| 65 20 74 68 65 20 6d 6f | 64 75 6c 65 00 20 20 80 |e the mo|dule.  .|
|00000640| 0b 20 73 75 63 63 65 73 | 73 24 3c 3e 22 22 20 3b |. succes|s$<>"" ;|
|00000650| 44 69 64 20 69 74 20 77 | 6f 72 6b 3f 00 20 20 20 |Did it w|ork?.   |
|00000660| 20 62 6f 64 79 24 3d 73 | 75 63 63 65 73 73 24 20 | body$=s|uccess$ |
|00000670| 20 3b 4e 6f 70 65 2c 20 | 74 68 65 6e 20 65 72 72 | ;Nope, |then err|
|00000680| 6f 72 20 6d 65 20 70 75 | 72 70 6c 65 2e 00 20 20 |or me pu|rple..  |
|00000690| 20 20 80 06 20 64 6f 65 | 72 72 6f 72 00 20 20 20 |  .. doe|rror.   |
|000006a0| 20 80 05 20 65 6e 64 65 | 00 20 20 80 c0 00 20 20 | .. ende|.  ...  |
|000006b0| 6e 75 6d 73 6f 6e 67 73 | 2e 62 3d 47 65 74 4e 75 |numsongs|.b=GetNu|
|000006c0| 6d 53 6f 6e 67 73 7b 7d | 00 20 20 74 69 74 24 3d |mSongs{}|.  tit$=|
|000006d0| 22 42 6c 69 74 7a 50 6c | 61 79 20 62 79 20 54 6f |"BlitzPl|ay by To|
|000006e0| 62 79 20 5a 75 69 6a 64 | 76 65 6c 64 22 00 20 20 |by Zuijd|veld".  |
|000006f0| 63 75 72 72 65 6e 74 74 | 75 6e 65 2e 6c 3d bc 07 |currentt|une.l=..|
|00000700| 28 6e 75 6d 73 6f 6e 67 | 73 29 2b 31 00 20 20 53 |(numsong|s)+1.  S|
|00000710| 65 74 53 6f 6e 67 4e 75 | 6d 7b 63 75 72 72 65 6e |etSongNu|m{curren|
|00000720| 74 74 75 6e 65 7d 00 20 | 20 73 75 63 63 65 73 73 |ttune}. | success|
|00000730| 24 3d 53 74 61 72 74 4d | 75 73 69 63 7b 7d 00 20 |$=StartM|usic{}. |
|00000740| 20 80 0b 20 73 75 63 63 | 65 73 73 24 3c 3e 22 22 | .. succ|ess$<>""|
|00000750| 00 20 20 20 20 62 6f 64 | 79 24 3d 73 75 63 63 65 |.    bod|y$=succe|
|00000760| 73 73 24 00 20 20 20 20 | 80 06 20 64 6f 65 72 72 |ss$.    |.. doerr|
|00000770| 6f 72 00 20 20 20 20 80 | 05 20 65 6e 64 65 00 20 |or.    .|. ende. |
|00000780| 20 80 c0 00 20 20 6c 65 | 66 74 6e 6f 69 73 65 2e | ...  le|ftnoise.|
|00000790| 6c 3d 24 31 30 30 00 20 | 20 72 69 67 68 74 6e 6f |l=$100. | rightno|
|000007a0| 69 73 65 2e 6c 3d 24 31 | 30 30 00 20 20 73 6f 6e |ise.l=$1|00.  son|
|000007b0| 67 6e 61 6d 65 24 3d 47 | 65 74 53 6f 6e 67 4e 61 |gname$=G|etSongNa|
|000007c0| 6d 65 7b 7d 00 20 20 73 | 6f 6e 67 61 75 74 68 6f |me{}.  s|ongautho|
|000007d0| 72 24 3d 47 65 74 53 6f | 6e 67 41 75 74 68 6f 72 |r$=GetSo|ngAuthor|
|000007e0| 7b 7d 00 20 20 74 69 74 | 6c 65 24 3d 22 22 00 20 |{}.  tit|le$="". |
|000007f0| 20 80 0b 20 73 6f 6e 67 | 61 75 74 68 6f 72 24 3c | .. song|author$<|
|00000800| 3e 22 22 20 80 21 20 74 | 69 74 6c 65 24 3d 73 6f |>"" .! t|itle$=so|
|00000810| 6e 67 6e 61 6d 65 24 2b | 22 20 43 72 65 61 74 65 |ngname$+|" Create|
|00000820| 64 20 62 79 20 22 2b 73 | 6f 6e 67 61 75 74 68 6f |d by "+s|ongautho|
|00000830| 72 24 00 20 20 6d 61 6b | 65 72 24 3d 47 65 74 4d |r$.  mak|er$=GetM|
|00000840| 61 6b 65 72 4e 61 6d 65 | 7b 7d 00 20 20 80 0b 20 |akerName|{}.  .. |
|00000850| 6d 61 6b 65 72 24 3d 22 | 22 20 80 21 20 6d 61 6b |maker$="|" .! mak|
|00000860| 65 72 24 3d 43 72 65 61 | 74 6f 72 49 44 7b 7d 00 |er$=Crea|torID{}.|
|00000870| 20 20 80 0b 20 74 69 74 | 6c 65 24 3c 3e 22 22 00 |  .. tit|le$<>"".|
|00000880| 20 20 20 20 74 69 74 6c | 65 24 2b 22 20 77 69 74 |    titl|e$+" wit|
|00000890| 68 20 22 2b 6d 61 6b 65 | 72 24 00 20 20 80 22 00 |h "+make|r$.  .".|
|000008a0| 20 20 20 20 74 69 74 6c | 65 24 3d 73 6f 6e 67 6e |    titl|e$=songn|
|000008b0| 61 6d 65 24 2b 22 20 43 | 72 65 61 74 65 64 20 77 |ame$+" C|reated w|
|000008c0| 69 74 68 20 22 2b 6d 61 | 6b 65 72 24 00 20 20 80 |ith "+ma|ker$.  .|
|000008d0| c0 00 20 20 c5 3b 20 74 | 69 74 6c 65 24 2c 74 69 |..  .; t|itle$,ti|
|000008e0| 74 24 00 20 20 73 63 72 | 6f 6c 6c 74 78 74 24 3d |t$.  scr|olltxt$=|
|000008f0| 47 65 74 53 63 72 6f 6c | 6c 7b 7d 00 20 20 dd 82 |GetScrol|l{}.  ..|
|00000900| 20 22 22 00 20 20 c5 3d | 00 20 20 dd 82 20 22 54 | "".  .=|.  .. "T|
|00000910| 68 69 73 20 6d 6f 64 75 | 6c 65 20 63 6f 6e 74 61 |his modu|le conta|
|00000920| 69 6e 73 20 22 2c 6e 75 | 6d 73 6f 6e 67 73 2c 22 |ins ",nu|msongs,"|
|00000930| 20 73 6f 6e 67 73 2e 22 | 00 20 20 c5 3d 00 20 20 | songs."|.  .=.  |
|00000940| dd 82 20 22 57 65 20 61 | 72 65 20 70 6c 61 79 69 |.. "We a|re playi|
|00000950| 6e 67 20 73 6f 6e 67 20 | 23 22 2c 63 75 72 72 65 |ng song |#",curre|
|00000960| 6e 74 74 75 6e 65 2c 22 | 2e 22 00 20 20 c5 3d 00 |nttune,"|.".  .=.|
|00000970| 20 20 dd 82 20 22 22 00 | 20 20 c5 3d 00 20 20 80 |  .. "".|  .=.  .|
|00000980| bb 20 20 3b 57 61 69 74 | 20 66 6f 72 20 75 73 65 |.  ;Wait| for use|
|00000990| 72 20 74 6f 20 67 65 74 | 20 73 69 63 6b 20 6f 66 |r to get| sick of|
|000009a0| 20 74 68 65 20 4d 4f 44 | 00 20 20 20 20 65 76 2e | the MOD|.    ev.|
|000009b0| 6c 3d c5 03 00 20 20 20 | 20 80 37 00 20 20 20 20 |l=...   | .7.    |
|000009c0| 80 0b 20 63 68 6f 69 63 | 65 3d 31 00 20 20 20 20 |.. choic|e=1.    |
|000009d0| 20 20 73 75 63 63 65 73 | 73 2e 62 3d 56 62 6c 61 |  succes|s.b=Vbla|
|000009e0| 6e 6b 35 30 7b 7d 20 20 | 3b 41 63 74 75 61 6c 6c |nk50{}  |;Actuall|
|000009f0| 79 20 50 4c 41 59 53 20 | 74 68 65 20 4d 4f 44 20 |y PLAYS |the MOD |
|00000a00| 3a 29 00 20 20 20 20 80 | 22 00 20 20 20 20 20 20 |:).    .|".      |
|00000a10| 73 75 63 63 65 73 73 3d | 56 62 6c 61 6e 6b 36 30 |success=|Vblank60|
|00000a20| 7b 7d 00 20 20 20 20 80 | c0 00 20 20 20 20 80 0b |{}.    .|..    ..|
|00000a30| 20 73 63 72 6f 6c 6c 74 | 78 74 24 3c 3e 22 22 00 | scrollt|xt$<>"".|
|00000a40| 20 20 20 20 20 20 63 6f | 75 6e 74 65 72 2e 62 2b |      co|unter.b+|
|00000a50| 31 00 20 20 20 20 20 20 | 80 0b 20 63 6f 75 6e 74 |1.      |.. count|
|00000a60| 65 72 3d 35 00 20 20 20 | 20 20 20 20 20 c5 3b 20 |er=5.   |     .; |
|00000a70| 73 63 72 6f 6c 6c 74 78 | 74 24 2c 74 69 74 6c 65 |scrolltx|t$,title|
|00000a80| 24 00 20 20 20 20 20 20 | 20 20 73 63 72 6f 6c 6c |$.      |  scroll|
|00000a90| 74 78 74 24 3d dc 91 28 | 73 63 72 6f 6c 6c 74 78 |txt$=..(|scrolltx|
|00000aa0| 74 24 2c 31 29 00 20 20 | 20 20 20 20 20 20 80 0b |t$,1).  |      ..|
|00000ab0| 20 dc 8f 28 73 63 72 6f | 6c 6c 74 78 74 24 29 3d | ..(scro|lltxt$)=|
|00000ac0| 30 20 80 21 20 73 63 72 | 6f 6c 6c 74 78 74 24 3d |0 .! scr|olltxt$=|
|00000ad0| 22 22 3a c5 3b 20 74 69 | 74 6c 65 24 2c 74 69 74 |"":.; ti|tle$,tit|
|00000ae0| 24 00 20 20 20 20 20 20 | 20 20 63 6f 75 6e 74 65 |$.      |  counte|
|00000af0| 72 3d 30 00 20 20 20 20 | 20 20 80 c0 00 20 20 20 |r=0.    |  ...   |
|00000b00| 20 80 c0 00 20 20 80 bc | 20 65 76 3d 24 32 30 30 | ...  ..| ev=$200|
|00000b10| 00 20 20 80 16 20 69 2e | 6c 3d 32 35 35 20 80 18 |.  .. i.|l=255 ..|
|00000b20| 20 30 20 80 19 20 2d 31 | 00 20 20 20 20 80 37 00 | 0 .. -1|.    .7.|
|00000b30| 20 20 20 20 80 0b 20 63 | 68 6f 69 63 65 3d 31 00 |    .. c|hoice=1.|
|00000b40| 20 20 20 20 20 20 73 75 | 63 63 65 73 73 2e 62 3d |      su|ccess.b=|
|00000b50| 56 62 6c 61 6e 6b 35 30 | 7b 7d 20 20 3b 41 63 74 |Vblank50|{}  ;Act|
|00000b60| 75 61 6c 6c 79 20 50 4c | 41 59 53 20 74 68 65 20 |ually PL|AYS the |
|00000b70| 4d 4f 44 20 3a 29 00 20 | 20 20 20 80 22 00 20 20 |MOD :). |   .".  |
|00000b80| 20 20 20 20 73 75 63 63 | 65 73 73 3d 56 62 6c 61 |    succ|ess=Vbla|
|00000b90| 6e 6b 36 30 7b 7d 00 20 | 20 20 20 80 c0 00 20 20 |nk60{}. |   ...  |
|00000ba0| 20 20 73 75 63 63 65 73 | 73 3d 53 65 74 56 6f 6c |  succes|s=SetVol|
|00000bb0| 75 6d 65 7b 69 2c 69 7d | 00 20 20 80 17 00 20 20 |ume{i,i}|.  ...  |
|00000bc0| 53 74 6f 70 4d 75 73 69 | 63 7b 7d 00 20 20 45 6e |StopMusi|c{}.  En|
|00000bd0| 64 4d 75 73 69 63 7b 7d | 00 20 20 46 69 6e 69 73 |dMusic{}|.  Finis|
|00000be0| 68 7b 7d 20 20 3b 57 65 | 20 62 65 74 74 65 72 20 |h{}  ;We| better |
|00000bf0| 61 64 64 20 74 68 61 74 | 20 69 6e 2c 20 62 65 66 |add that| in, bef|
|00000c00| 6f 72 65 20 49 20 6c 6f | 73 65 20 61 6c 6c 20 6d |ore I lo|se all m|
|00000c10| 79 20 6d 65 6d 6f 72 79 | 20 74 65 73 74 69 6e 67 |y memory| testing|
|00000c20| 20 74 68 69 73 20 63 6f | 64 65 20 3a 29 00 80 05 | this co|de :)...|
|00000c30| 20 61 67 61 69 6e 20 20 | 3b 54 68 61 74 27 73 20 | again  |;That's |
|00000c40| 69 74 2c 20 43 68 61 72 | 6c 69 65 20 42 72 6f 77 |it, Char|lie Brow|
|00000c50| 6e 21 00 00 2e 65 6e 64 | 65 3a 00 20 20 c5 3c 20 |n!...end|e:.  .< |
|00000c60| 30 00 20 20 80 2b 20 cf | 01 20 30 00 80 02 00 00 |0.  .+ .|. 0.....|
|00000c70| 2e 64 6f 65 72 72 6f 72 | 3a 20 3b 4d 79 20 72 65 |.doerror|: ;My re|
|00000c80| 61 6c 6c 79 20 67 72 6f | 6f 76 65 79 20 65 72 72 |ally gro|ovey err|
|00000c90| 6f 72 20 68 61 6e 64 6c | 65 72 2e 2e 2e 00 20 20 |or handl|er....  |
|00000ca0| dd 82 20 22 22 00 20 20 | c5 3d 00 20 20 dd 82 20 |.. "".  |.=.  .. |
|00000cb0| 62 6f 64 79 24 00 20 20 | c5 3d 00 20 20 dd 82 20 |body$.  |.=.  .. |
|00000cc0| 22 22 00 20 20 c5 3d 00 | 20 20 dd 82 20 22 48 69 |"".  .=.|  .. "Hi|
|00000cd0| 74 20 6d 6f 75 73 65 62 | 75 74 74 6f 6e 20 74 6f |t mouseb|utton to|
|00000ce0| 20 63 6f 6e 74 69 6e 75 | 65 2e 22 00 20 20 c5 3d | continu|e.".  .=|
|00000cf0| 00 20 20 80 0a 00 80 07 | 20 20 3b 41 6e 64 20 74 |.  .....|  ;And t|
|00000d00| 68 61 74 27 73 20 69 74 | 20 3a 29 00 00          |hat's it| :)..   |
+--------+-------------------------+-------------------------+--------+--------+